1 POKE105,0:POKE106,21:POKE107,0:POKE108,21:POKE109,0:POKE110,21:INPUT"NOMBRE DE LIGNES:";N:P=10:K=256:D=PEEK(175)+PEEK(176)*K-3:H=200:J=254
2 FORX=NTO1STEP-1:F=INT(RND(I)*N)+1:Z=(D+F+5)/K:T=INT(Z):R=(Z-T)*K:POKED,R:POKED+1,T:POKED+2,0:POKED+3,Q:FORI=1TOF:C=INT(RND(1)*J)+1:POKED+4,C:D=D+1:NEXT:POKED+4,0:POKED+5,0:POKED+6,0:P=P+10:D=D+5:NEXT:LIST:END